home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / MODBRCV.PRG < prev    next >
Text File  |  1994-10-12  |  2KB  |  35 lines
  1. *************************************************************
  2. * FICHERO MODBRCV.PRG
  3. * Muestra la utilización de la propiedad OnChange de botones de
  4. * radio y casillas de verificación. Ejemplo del capítulo
  5. * 22 de la "Guía del Programador".
  6. *************************************************************
  7. DEFINE FORM f FROM 9,15 TO 15,65 ;
  8.    PROPERTY Text "Selección de botón de radio o casilla"
  9.  
  10. DEFINE CHECKBOX chk OF f AT 1,9 ;
  11.    PROPERTY Text " OFF ", OnChange ObjChg
  12.  
  13. *------------------------------------------------------------
  14. * rb1 es el primer botón de radio del grupo. Por omisión
  15. * Group y Tabstop son .T. y su valor es .T.
  16. *------------------------------------------------------------
  17. DEFINE RADIOBUTTON rb1 OF f AT 1,28 ;
  18.    PROPERTY Text " ON ", OnChange ObjChg
  19.  
  20. *------------------------------------------------------------
  21. * rb2 es el segundo botón de radio del grupo. Hace que
  22. * Group y Tabstop sean .F. y se comporten por tanto como
  23. * parte del grupo. Por omisión su valor es .F.
  24. *------------------------------------------------------------
  25. DEFINE RADIOBUTTON rb2 OF f AT 2,28 ;
  26.    PROPERTY Text " OFF ", Group .F., Tabstop .F., ;
  27.    OnChange ObjChg
  28.  
  29. lVoid = f.Open()                     && Abre la ventana de ficha.
  30. lVoid = f.chk.SetFocus()             && Fuerza el foco sobre la casilla de verificación.
  31.  
  32. PROCEDURE ObjChg                     && Controlador del suceso OnChange de los tres controles.
  33.    this.Text = IIF (this.Value, " ON", " OFF") && El texto del control es 'ON' si su valor
  34. RETURN                                         && es .T. y 'OFF' si es .F.
  35.